(imenu-update-menubar): Fix code to install the new menu.

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 0ad476ad48f59fef55e16e716629648e39224257..bc9e86693690628cbf15ade3fb1c8b97e6869db5 100644 (file)
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -822,8 +822,7 @@ See the command `imenu' for more information."
                                                     (cdr (car (cdr menu))))
                                                   t))
               (setq old (lookup-key (current-local-map) [menu-bar index]))
-              (if (keymapp old)
-                  (setcdr (nthcdr 2 old) menu1)))))))
+              (setcdr old (cdr menu1)))))))
 
 (defun imenu--menubar-select (item)
   "Use Imenu to select the function or variable named in this menu item."